home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / BBSGET.ACT < prev    next >
Text File  |  1990-06-01  |  872b  |  28 lines
  1. trace(1)
  2. { Action file to initiate receive from BBS }
  3. { Check if filename argument given, prompt if not }
  4.  
  5. @a = @1                         {argument 1 move to variable @A}
  6. if (@1 <> "") goto :noprompt    {if argument is null go to noprompt}
  7. @a = prompt("Enter receive filename: "); {ask for file name}
  8. if (@a = "") exit;                       {no file name, exit}
  9. @b = prompt("Enter X for Xmodem, A for Ascii: ");   {ask file xmodem or ASC}
  10. if (@b <> "x" and @b <> "a") exit "Don't understand ""@b""";  {check}
  11.  
  12. :noprompt                       {no prompt}
  13. {******************************************}
  14. {ask the host to download}
  15. "d;@a"; @return;
  16. cwait("?"); @b; @return;
  17.  
  18. {ASCII file transfer}
  19. if (@b = "x") goto :xmodem
  20.    cwait("?");
  21.    @return;
  22.    recvfile(@a, "ascii", "$07$0D");
  23.    exit;
  24.  
  25. :xmodem
  26.    cwait("...");
  27.    recvfile(@a, "xmodem");
  28.